home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 04 geoProgramming / COPEIN.SDA / MC51 (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  2019-04-13  |  3.7 KB  |  208 lines
  1. SEQ formatted GEOS file V1.0
  2. Epson FX-80
  3. UTILITY
  4. LASTER'S 
  5. ONVERTER 
  6. EDITFUN
  7. TABLES
  8. COPE Source V1.1
  9. DISK A
  10. COPE Editor V1.1
  11. Untitled
  12. AJPJWJaJnJzJ
  13. /; ===
  14. ; EDITER FOR GEOS ASSEMBLER
  15. ;  BY BILL SHARP
  16. START
  17.  JSR OpenDisk
  18. ; load the disk name into buffer TFName
  19. ; This is necessary because the user may change the
  20. ; filename.  We cannot assume what it is.
  21.  loadw R6:TFName
  22.  lda #6
  23.  sta R7
  24.  lda #1
  25.  sta R7+1
  26.  loadw R10:LkFr
  27.  jsr FindFTypes
  28. ;------
  29.  JSR $C18A; mouseup
  30.  JSR Clr_Screen
  31.  JSR VECTOR
  32. loadw R0:ICONS
  33.  JSR $C15A; do ICONS
  34. loadw R0:MENUS
  35.  LDA #1
  36.  JSR $C151; DoMenu
  37. LkFr .Byte 'COPE_VLIR'
  38. TFName .Block 20
  39. .Byte 'ABCDEF',0
  40. ; ICON ROUTINE
  41. ICONS
  42. .BYTE 1 ; 1 ICON
  43. .WORD 160
  44. .BYTE 0
  45. .WORD Icdt
  46. .BYTE 38,0,2,15
  47. .WORD QUIT2 ; CODE
  48. .BYTE 158
  49. .BYTE 255,255,0,0,255,255,128,01,128,1,128,1
  50. .BYTE 135,225,135,225,135,225
  51. .BYTE 128,01,128,01,128,01
  52. .BYTE 255,255
  53. .BYTE 0,0
  54. .BYTE 255,255
  55. MENUS
  56. .BYTE MANTOP
  57. .BYTE MANBOT
  58. .WORD MANLFT
  59. .WORD MANRT
  60. .BYTE HORIZ | 5
  61. .WORD MTX1
  62. .BYTE $80
  63. .WORD MSB1
  64. .WORD MTX2
  65. .BYTE $80
  66. .WORD MSB2
  67. .WORD MTX3
  68. .BYTE $80 
  69. .WORD MSB3
  70. .WORD MTX4
  71. .BYTE $80 ; SUB-MENU
  72. .WORD MSB4
  73. .WORD MTX5
  74. .BYTE $80
  75. .WORD MSB5
  76. MTX1 .BYTE PLAIN,128,0
  77. MTX2 .BYTE 'File',0
  78. MTX3 .BYTE 'Edit',0
  79. MTX4 .BYTE 'Search',0
  80. MTX5 .BYTE 'Toolbox',0
  81. ;== START OF  SUB-MENUS
  82. .BYTE MANBOT
  83. .BYTE MANBOT+1*14+1
  84. .WORD MANLFT
  85. .WORD MANLFT+30
  86. .BYTE VERT | 1
  87. .WORD Sx11
  88. .BYTE 0
  89. .WORD NOCODE
  90. Sx11 .BYTE 'COPE Info',0
  91. ;-----
  92. .BYTE MANBOT
  93. .BYTE MANBOT+5*14+1
  94. .WORD MANLFT+20
  95. .WORD MANLFT+86
  96. .BYTE VERT | 5
  97. .WORD Su21
  98. .BYTE 0
  99. .WORD LOAD
  100. .WORD Su22
  101. .BYTE 0
  102. .WORD SAVE
  103. .WORD Su23
  104. .BYTE 0
  105. .WORD PRINT
  106. .WORD Su24
  107. .BYTE 0 
  108. .WORD QUIT
  109. .WORD Su25
  110. .BYTE 0
  111. .WORD SaveAs1
  112. Su21 .BYTE 'Load',20,64,0,128,'L',0
  113. Su22 .BYTE 'Save',20,64,0,128,'S',0
  114. Su23 .BYTE 'Print',0
  115. Su24 .BYTE 'Quit',20,64,0,128,'Q',0
  116. Su25 .BYTE 'Save As...',0
  117. ; END SuENU 2
  118. ; START SuENU 3
  119. .BYTE MANBOT
  120. .BYTE MANBOT+4*14+1
  121. .WORD MANLFT+41
  122. .WORD MANLFT+105
  123. .BYTE VERT+4
  124. .WORD Su31
  125. .BYTE 0
  126. .WORD CUT
  127. .WORD Su32
  128. .BYTE 0
  129. .WORD COPY
  130. .WORD Su33
  131. .BYTE 0
  132. .WORD PASTE 
  133. .WORD Su34
  134. .BYTE 0
  135. .WORD CLEAR
  136. Su31 .BYTE 'Cut',20,83,0,128,'X',0
  137. Su32 .BYTE 'Copy',20,83,0,128,'C',0
  138. Su33 .BYTE 'Paste',20,83,0,128,'T',0
  139. Su34 .BYTE 'Clear',20,85,0,'DEL',0
  140. .BYTE MANBOT
  141. .BYTE MANBOT+43
  142. .WORD MANLFT+63
  143. .WORD MANLFT+142
  144. .BYTE VERT+3
  145. .WORD Su41
  146. .BYTE 0
  147. .WORD FIND
  148. .WORD Su42
  149. .BYTE 0
  150. .WORD RPTSTR
  151. .WORD Su44
  152. .BYTE 0
  153. .WORD PageGO; GoMenu; changed to delete function key display
  154. Su41 .BYTE 'Find...',20,120,0,128,'F',0
  155. Su42 .BYTE 'Replace...',20,120,0,128,'R',0
  156. Su44 .BYTE 'Goto Page...',20,120,0,128,'G',0
  157. .BYTE MANBOT
  158. .BYTE MANBOT+29
  159. .WORD MANLFT+99
  160. .WORD MANLFT+155
  161. .BYTE VERT+2
  162. .WORD Su52
  163. .BYTE 0 
  164. .WORD Asave
  165. .Word Su53
  166. .Byte 0
  167. .Word BMark
  168. Su52 .Byte 'AutoSave',0
  169. Su53 .Byte 'BookMark',0
  170. ;==  END OF MENU TABLES
  171. ; VECTOR TABLE
  172. VECTOR
  173. JSR $C1B7
  174. .WORD TMPNME
  175. .WORD FNAME
  176. .BYTE 17,0
  177. VECTOR1
  178. LDX #0
  179. JSR $C1BD
  180. QUIT2
  181. JMP ENTDSK
  182. ;====
  183. ; DIALOG BOXES
  184. DB1 .BYTE 128+2
  185. .BYTE 11,70,30
  186. .WORD Wa
  187. .BYTE 11,45,45
  188. .WORD Wa2
  189. .Byte 11,68,75
  190. .Word Wa3
  191. .Byte 11,40,60
  192. .Word Wa4
  193. .BYTE 14,0
  194. Wa .BYTE BOLD,'geoCOPE',PLAIN,0
  195. Wa2 .BYTE 'Copyright 1987, 1988',0
  196. Wa4 .Byte 'by Bill Sharp Computing',0
  197. Wa3 .Byte 'Version 1.1',0
  198. ;APPLICATION CODE/MENUS AND ICONS.
  199. NOCODE
  200. JSR $C1BD ;GOTO FIRST MENU
  201. loadw R0:DB1
  202. JSR $C256; DO DIALOG BOX
  203. NoCHAR
  204. JSR $C1BD ;GOTO FIRST MENU
  205. loadw R0:DB1
  206. JSR $C256; DO DIALOG BOX
  207. ;====
  208.